library(datasets)
library(ggplot2)
theme_set(theme_bw())
my_table <- prop_time_plot
my_table
colnames(my_table)
colnames(my_table)<-c('state','year','proportion')
ggplot(data=my_table, aes(x=year, y=proportion, group=state)) + geom_line(aes(linetype=state)) + geom_point(aes(color=state))

library(readxl)
prop_ownstate_plot <- read_excel("Documents/missouri_project/data/prop_ownstate_guntrace_plot.xlsx")
View(prop_homicide_plot)

library(readxl)
prop_time_plot <- read_excel("Documents/missouri_project/data/prop_time_plot.xlsx")
View(prop_time_plot)  

library(readxl)
prop_homicide_plot <- read_excel("Documents/missouri_project/data/homicide_plot.xlsx")
View(prop_homicide_plot)